Requires SORA\Drawing
Requires SORA\Framework

Component: slider

[Motif]
   cell blk property upper
   cell blk property lower
   cell blk property quant
   cell blk property w
   cell blk property h
   cell blk property addr
   cell blk property bgcolor

: slider   ( min max quantize address width height <<me>> -- )
   h ! w ! addr ! quant ! upper ! lower ! 
   $ff808080 bgcolor ! 
   $ffffffff color ! ;

using slider

: hslider  ( min max quantize address width height <<me>> -- )
   slider 
   show:[ ;] 
   mbutton-down:[ ;] 
   ;

: vslider  ( min max quantize address width height <<me>> -- )
   slider 
   show:[ ;]
   mbutton-down:[ ;] 
   ;

close slider